home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -seriously_amiga- / graphics / animfx / src / soundplay.mod < prev   
Text File  |  1999-02-02  |  1KB  |  38 lines
  1. {$if not def SOUNDPLAY_MOD}
  2. CONST SOUNDPLAY_MOD=0;
  3.  
  4. var SPAddrA,  SPAddrB,  SPAddrC,  SPAddrD       :^long;
  5. var SPLengthA,SPLengthB,SPLengthC,SPLengthD     :^word;
  6. var SPFreqA,  SPFreqB,  SPFreqC,  SPFreqD       :^word;
  7. var SPVOLA,   SPVolB,   SPVolC,   SPVolD        :^word;
  8. var SPDataA,  SPDataB,  SPDataC,  SPDataD       :^word;
  9. var DMACON_WRITE,DMACON_READ,
  10.     ADKCON_WRITE,ADKCON_READ,
  11.     NTREQ_WRITE, NTREQ_READ                     :^word;
  12.  
  13. {$endif}
  14.  
  15. procedure INITCHANNELS;
  16.  
  17. begin
  18.    SPAddrA:=ptr($DFF0A0);   SPLengthA:=ptr($DFF0A4);
  19.    SPFreqA:=ptr($DFF0A6);   SPVolA:=   ptr($DFF0A8);
  20.    SPDataA:=ptr($DFF0AA);
  21.  
  22.    SPAddrB:=ptr($DFF0B0);   SPLengthB:=ptr($DFF0B4);
  23.    SPFreqB:=ptr($DFF0B6);   SPVolB:=ptr($DFF0B8);
  24.    SPDataB:=ptr($DFF0BA);
  25.  
  26.    SPAddrC:=ptr($DFF0C0);   SPLengthC:=ptr($DFF0C4);
  27.    SPFreqC:=ptr($DFF0C6);   SPVolC:=ptr($DFF0C8);
  28.    SPDataC:=ptr($DFF0CA);
  29.  
  30.    SPAddrD:=ptr($DFF0D0);   SPLengthD:=ptr($DFF0D4);
  31.    SPFreqD:=ptr($DFF0D6);   SPVolD:=ptr($DFF0D8);
  32.    SPDataD:=ptr($DFF0DA);
  33.  
  34.    DMACON_WRITE:=ptr($DFF096); DMACON_READ:=ptr($DFF002);
  35.    ADKCON_READ:=ptr($DFF010);  ADKCON_WRITE:=ptr($DFF09E);
  36.    NTREQ_READ:=ptr($DFF01E);   NTREQ_WRITE:=ptr($DFF09C);
  37. end;
  38.